home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of www.BestZips.com (Collector's Edition)
/
Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO
/
grapprog
/
splt252.zip
/
TESTS
/
T5-22-1.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-07-21
|
349b
|
14 lines
10 OPEN "T5-22-1.PLT" FOR OUTPUT AS #1
20 PRINT #1,"IN;SP1;PA1000,1000;"
30 FOR A=.19 TO .89 STEP .1
40 PRINT #1,"SI",A,A*1.4
50 PRINT #1,"UC4,7,99,0,1,-4,0,2,-4,-2,-4,4,0,0,1;"
60 NEXT A
70 PRINT #1,"PA1000,1750"
80 FOR B=.19 TO .89 STEP .1
90 PRINT #1,"SI",B,B*1.4
100 PRINT #1,"LBE"+CHR$(3)
110 NEXT B
120 PRINT #1,"SP0;"
130 END